0 PRINT"[147]"TAB(13)"BIRTHDAY PARTY"
1 REM ==================================
2 REM    COMMODARES PROBLEM #54-4 :
3 REM       BIRTHDAY PARTY
4 REM    SOLUTION BY
5 REM       JIM SPEERS
6 REM ==================================
100 FORA=0TO1:FORB=0TO1:FORC=0TO1:FORD=0TO1:FORE=0TO1
110 IF((B=1)AND(C=1))OR((B=0)AND(C=0))THEN220:REM PREMISE #1
120 IF((A=1)AND(B=0))THEN220:REM PREMISE #2
130 IF((D=0)AND(E=0))THEN220:REM PREMISE #3
140 IF((D=1)AND(C=0))OR((C=1)AND(D=0))THEN220:REM PREMISE #4
150 IF((E=1)AND((A=0)OR(D=0)))THEN220:REM PREMISE #5
160 IFATHENPRINT"ADAM, ";
170 IFBTHENPRINT"BERT, ";
180 IFCTHENPRINT"CARL, ";
190 IFDTHENPRINT"DUKE, ";
200 IFETHENPRINT"EMIL, ";
210 PRINTCHR$(20)CHR$(20)"."
220 NEXTE,D,C,B,A